#!/usr/bin/perl
#
$senNum=1;
while($line=<STDIN>) {
	chomp($line);
	if($line!~/^\s*$/) {
		print $senNum."\n";
	}
	$senNum++;
}
